home *** CD-ROM | disk | FTP | other *** search
/ In Focus Guide to Better Photography / In Focus Guide to Better Photography.iso / weather.dxr / 00001_• movie script.ls next >
Encoding:
Text File  |  1997-07-07  |  2.4 KB  |  90 lines
  1. global folderName, sndPath, gMachine, gSaveSoundVol, gMicAudioFileList, gPictureCastNumBase, gCurPicture, gTabSprite, gWeatherSelection, gMicDurations
  2.  
  3. on startMovie
  4.   set gCurPicture to 1
  5.   set gPictureCastNumBase to 45
  6.   set folderName to "weather" & gMachine
  7.   set sndPath to the pathName & "snd" & gMachine & "weather" & gMachine
  8.   initForEachMovie(#weather)
  9.   set gMicAudioFileList to list("watrfall.aif", "ankor.aif", "mesa.aif", "marsh.aif", "dosmary.aif", "hongkong.aif", "stones.aif", "neweng.aif")
  10.   set gMicDurations to list(15, 8, 16, 13, 15, 6, 8, 16, 16)
  11. end
  12.  
  13. on stopMovie
  14. end
  15.  
  16. on doThumbNailLeftRight leftOrRight
  17.   if leftOrRight = -1 then
  18.     if gCurPicture = 1 then
  19.       set gCurPicture to 8
  20.     else
  21.       set gCurPicture to gCurPicture - 1
  22.     end if
  23.   else
  24.     if gCurPicture = 8 then
  25.       set gCurPicture to 1
  26.     else
  27.       set gCurPicture to gCurPicture + 1
  28.     end if
  29.   end if
  30.   doThumbNailAnimation(29, 33 + (gCurPicture - 1), 2, leftOrRight)
  31.   setupThumbNailCounter(gCurPicture, 8)
  32.   NewPicture()
  33. end
  34.  
  35. on NewPicture
  36.   set the castNum of sprite 7 to gPictureCastNumBase + ((gCurPicture - 1) * 5)
  37.   set the castNum of sprite 3 to 90 + ((gCurPicture - 1) * 5)
  38.   set the loc of sprite 14 to point(101, 116)
  39.   setMainPhotoLoc(the castNum of sprite 7)
  40.   updateTabs()
  41.   preLoadThisExample()
  42. end
  43.  
  44. on preLoadThisExample
  45.   set start to the castNum of sprite 3
  46.   preLoadRange(start, start + 4, 1)
  47. end
  48.  
  49. on finishIntro
  50.   set the mouseDownScript to EMPTY
  51.   set the mouseUpScript to EMPTY
  52.   finishIntroBecauseOfMouseClick()
  53. end
  54.  
  55. on finishIntroBecauseOfMouseClick
  56.   global gSavePhotoCastNum, start, oldStart, gDoOnMouseDown
  57.   sound stop 2
  58.   set the volume of sound 2 to gSaveSoundVol
  59.   puppetSprite(7, 1)
  60.   set the castNum of sprite 7 to gSavePhotoCastNum
  61.   setMainPhotoLoc(gSavePhotoCastNum)
  62.   updateTabs()
  63.   updateStage()
  64.   set gDoOnMouseDown to EMPTY
  65.   finishIntroCore()
  66. end
  67.  
  68. on doWeatherSelectMouseUp
  69.   set the mouseUpScript to EMPTY
  70.   dontPassEvent()
  71.   newWeather(1, 1)
  72. end
  73.  
  74. on newWeather doButtonUp, doTheDissolve
  75.   if doButtonUp then
  76.     set the castNum of sprite 3 to the castNum of sprite 3 - (gWeatherSelection + 1)
  77.   end if
  78.   set R to offset(rect(101, 116, 138, 140), 0, gWeatherSelection * 31)
  79.   if gWeatherSelection = 3 then
  80.     set R to offset(R, 0, -2)
  81.   end if
  82.   set the rect of sprite 14 to R
  83.   updateStage()
  84.   set the castNum of sprite 7 to gPictureCastNumBase + ((gCurPicture - 1) * 5) + gWeatherSelection
  85.   if doTheDissolve then
  86.     doDissolve()
  87.   end if
  88.   updateStage()
  89. end
  90.